home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / misc / DragonDaemon.lha / DragonDaemon-Install / Programme / ARexx / LogAbort.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-02  |  1KB  |  56 lines
  1. /* 
  2.    LogAbort-Skript für DragonDaemon
  3.    --------------------------------
  4.    
  5.    Wird ausgeführt, wenn Verbindung abgebrochen wurde
  6.  
  7.    Eingangsparameter: Datum Uhrzeit Port Nummer Name
  8.  
  9.    Erklärung        : Datum   10-stellig im Format DD.MM.JJJJ (Tag.Monat.Jahr)
  10.                       Uhrzeit  8-stellig im Format HH:MM:SS   (Std:Min:Sek)
  11.                       Port     1-stellig, Bereich 1 bis 3
  12.                       Nummer   variable Länge, wie im Anwahlfenster gezeigt
  13.                       Name     variable Länge und in Anführungzeichen
  14.  
  15.    Einzutragendes Tooltype:  LOGABORT=RX ARexx/LogAbort.rexx
  16.  
  17. */
  18.  
  19. options results
  20.  
  21. PARSE arg datum ' ' uhrzeit ' ' port ' ' nummer ' ' name
  22.  
  23. /* 
  24.    ---------------------------------------------------------
  25.    Anführungszeichen links und rechts von "name" entfernen
  26.    ---------------------------------------------------------
  27. */
  28.  
  29. name=Strip(name,'B','"')
  30.  
  31. /* 
  32.    ---------------------------------------------------------
  33.    Name der Logdatei
  34.    ---------------------------------------------------------
  35. */
  36.  
  37. logfile="RAM:Testlog.LOG"
  38.  
  39. /* 
  40.    ---------------------------------------------------------
  41.    Daten an Logfile anhängen
  42.    ---------------------------------------------------------
  43. */
  44.  
  45. logopen=open("log",logfile,"A")
  46. if logopen=0 then
  47.   logopen=open("log",logfile,"W")
  48.  
  49. if logopen=1 then
  50.   do
  51.     dummy=writeln("log","LOGABORT: "||datum uhrzeit port nummer name)
  52.     close "log"
  53.   end
  54. exit
  55.  
  56.